www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_JsSub.asp
<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--影片扫描管理</title>
<LINK href="css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<script language="JavaScript" type="text/javascript" src="YWNT_TMS_inc/YWNT_TMS_Common.js"></script>
<!--#include file="../Conn.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<!--#include file="YWNT_TMS_inc/JsFunction.asp" -->
<!--#include file="../function/Function.asp" -->
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("JsSub")
Sub AddJsSave()
if Request.Form("JSName")="" then
call Admin_ShowErr("<li>请添加文件名</li>","Admin_JsSub.asp",0)
Request.end()
end if
jstext=TypeJs(NoSqlHack(Request.Form("typeid")),NoSqlHack(Request.Form("containSubClass")),NoSqlHack(Request.Form("Region")),NoSqlHack(Request.Form("Style")),NoSqlHack(Request.Form("Volume")),NoSqlHack(Request.Form("TdVolume")),NoSqlHack(Request.Form("Attribute")),NoSqlHack(Request.Form("picwidth")),NoSqlHack(Request.Form("picheight")),NoSqlHack(Request.Form("ShowTitle")),NoSqlHack(Request.Form("TitleVolume")),NoSqlHack(Request.Form("TitleStyle")),NoSqlHack(Request.Form("ShowActor")),NoSqlHack(Request.Form("ActorVolume")),NoSqlHack(Request.Form("Showtype")),NoSqlHack(Request.Form("ShowRegion")),NoSqlHack(Request.Form("ShowClick")),NoSqlHack(Request.Form("ShowCoin")),NoSqlHack(Request.Form("ShowDate")),NoSqlHack(Request.Form("ShowContent")),NoSqlHack(Request.Form("ContentVolume")),NoSqlHack(Request.Form("Sorting")),NoSqlHack(Request.Form("OpenStyle")),NoSqlHack(Request.Form("BgColor")),NoSqlHack(Request.Form("BgPic")),NoSqlHack(Request.Form("BorderColor")))
call FSOSaveFile("../JS/"&Request.Form("JSName")&".js",HtmltoJs(jstext))
call AddLog("添加js调用"&Request.Form("JSName")&".js",9)
call Admin_ShowErr("<li>添加js调用成功</li>","Admin_JsSub.asp",1)
End Sub
Sub ListJs()
call FsoList("../JS/")
End Sub
Select Case Request("Action")
Case "AddJsSave"
Call AddJsSave()
Case "AddJs"
Call AddJs()
Case "Del"
Call DeleteFile(GetConfig("WebiInstallDir")&"JS/"&Request.QueryString("Name"))
call AddLog("删除js调用"&Request.QueryString("Name"),9)
call Admin_ShowErr("<li>删除js调用成功</li>","Admin_JsSub.asp",1)
Case Else
Call ListJs()
End Select
sub AddJs()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td colspan="4" class=xingmu>添加JS调用</td>
</tr>
<form method="post" name="TypeJsForm" action="Admin_JsSub.asp?Action=AddJsSave">
<tr>
<td width="19%" height=32 align="right" class="hback">文件名称：</td>
<td colspan="5" class="hback"><input name="JSName" type="text" size="30">
<font color="#FF0000">文件名称请尽量使用英文</font></td>
</tr>
<tr>
<td width="19%" height=32 align="right" class="hback">所属栏目：</td>
<td colspan="5" class="hback"><select name="ClassType" onChange="ClassTypestyle(this.value);" style="width: 150px;">
<option value="1">全部栏目</option>
<option value="2">同类栏目</option>
<option value="3">选择栏目</option>
</select></td>
</tr>
<tr id="Se_Style" style="display:none;">
<td width="19%" height=32 align="right" class="hback">选择栏目：</td>
<td colspan="5" class="hback"><input name="ClassName" type="text" size="30" readonly>
<input name="typeid" type="hidden" id="typeid" value="">
<input type="button" name="SubmitClass" value="选择栏目" onClick="SelectClassLebJS();">
<input type="checkbox" name="containSubClass" value="1">
包含子栏目 </td>
</tr>
<tr>
<td height=32 align="right" class="hback">选择地区：</td>
<td height=32 colspan="3" class="hback"><%call LebRegion("Region")%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">栏目样式：</td>
<td height=32 colspan="2" class="hback"><select name="Style" onChange="ChoosePic(this.value);ChooseDate(this.value);" style="width: 150px;">
<option value="1">样式一</option>
<option value="2">样式二</option>
<option value="3">样式三</option>
<option value="4">样式四</option>
</select></td>
<td width="44%" rowspan="6" class="hback" id="PreviewArea"> </td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片属性：</td>
<td height=32 colspan="2" class="hback"><select name="Attribute" style="width: 150px;">
<option value="">显示全部</option>
<option value="1">推荐影片</option>
<option value="2">热点影片</option>
<option value="3">连载影片</option>
<option value="4">免费试看</option>
</select></td>
</tr>
<tr>
<td height=32 align="right" class="hback">排序方式：</td>
<td height=32 colspan="2" class="hback"><select name="Sorting" style="width: 150px;">
<option value="1">影片ID(降序)</option>
<option value="2">影片ID(升序)</option>
<option value="3">影片更新时间(降序)</option>
<option value="4">影片更新时间(升序)</option>
<option value="5">点播次数(降序)</option>
<option value="6">点播次数(升序)</option>
</select></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片数量：</td>
<td height=32 colspan="2" class="hback"><input name="Volume" type="text" value="4"></td>
</tr>
<tr>
<td height=34 align="right" class="hback">并排数量：</td>
<td height=34 colspan="2" class="hback"><input name="TdVolume" type="text" value="1"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">新开窗口：</td>
<td height=32 colspan="2" class="hback"><select name="OpenStyle" style="width: 150px;">
<option value="1">是新窗口打开</option>
<option value="2">否原窗口打开</option>
</select></td>
</tr>
<TR>
<TD height=32 align="right" class="hback">图片大小：</TD>
<TD colspan="3" class="hback">宽度：
<input name="picwidth" type="text" value="90" size="5">
高度：
<input name="picheight" type="text" value="120" size="5"></TD>
</TR>
<tr>
<td height=-2 align="right" class="hback">显示内容：</td>
<td height=15 colspan="3" class="hback"><input name="ShowTitle" type="checkbox" value="1" checked>
影片名称
<input type="checkbox" name="ShowActor" value="1">
影片主演
<input type="checkbox" name="Showtype" value="1">
所属栏目
<input type="checkbox" name="ShowRegion" value="1">
出产地区 <br>
<input type="checkbox" name="ShowClick" value="1">
点播次数
<input type="checkbox" name="ShowCoin" value="1">
需要影币
<input type="checkbox" name="ShowDate" value="1">
更新时间
<input type="checkbox" name="ShowContent" value="1">
影片介绍</td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片名称字数：</td>
<td height=16 class="hback"><input name="TitleVolume" type="text" value="10"></td>
<td height=16 align="right" class="hback">名称链接CSS：</td>
<td height=16 class="hback"><input type="text" name="TitleStyle"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">演员数量：</td>
<td height=32 class="hback"><input name="ActorVolume" type="text" value="1"></td>
<td height=32 align="right" class="hback">介绍字数：</td>
<td height=32 class="hback"><input name="ContentVolume" type="text" value="15"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">背景颜色：</td>
<td width="21%" height=-2 class="hback"><input name="BgColor" type="text" value="" size="15">
<img src="../Editor/icons/btColor.gif" width="16" height="15" class="overBorder" onClick='p=showModalDialog("../Editor/SelectColor.asp",window,"center:yes;dialogHeight:251px;dialogWidth:300px;help:no;status:no");if(p!=null){this.style.backgroundColor=BgColor.value=p.split("*")[0]}else{this.style.backgroundColor=""}'></td>
<td width="16%" align="right" class="hback">边框颜色：</td>
<td height=15 class="hback"><input name="BorderColor" type="text" value="" size="15">
<img src="../Editor/icons/btColor.gif" width="16" height="15" class="overBorder" onClick='p=showModalDialog("../Editor/SelectColor.asp",window,"center:yes;dialogHeight:251px;dialogWidth:300px;help:no;status:no");if(p!=null){this.style.backgroundColor=BorderColor.value=p.split("*")[0]}else{this.style.backgroundColor=""}'></td>
</tr>
<tr>
<td height=32 align="right" class="hback">背景图案：</td>
<td height=16 colspan="3" class="hback"><input name="BgPic" id="BgPic" size=45 maxlength="200">
<input type="button" name="Button" value="选择图片" onClick="var TempReturnValue=OpenWindow('Dialog/SelectPic.asp?CurrPath=<% = CurrPath %>',500,290,window);if (TempReturnValue!='') document.TypeJsForm.BgPic.value=TempReturnValue;" class=Anbutc></td>
</tr>
<tr>
<td height=32 colspan="4" align="center" class="hback"><input type="Submit" name="Submit" value="添加"></td>
</tr>
</form>
</table>
<script language="JavaScript">
ChoosePic("1")
function ChoosePic(style_id)
{
if(style_id=="")
style_id=1;
document.all.PreviewArea.innerHTML="<img src='Labeling/Style/Style"+style_id+".gif' />"
}
function ChooseDate(DateStr)
{
if (DateStr==4)
{
document.TypeJsForm.picwidth.disabled=true;
document.TypeJsForm.picheight.disabled=true;
}
else
{
document.TypeJsForm.picwidth.disabled=false;
document.TypeJsForm.picheight.disabled=false;
}
}
function ClassTypestyle(Str)
{
if (Str==3)
{
document.getElementById('Se_Style').style.display = '';
}
else
{
document.getElementById('Se_Style').style.display = 'none';
}
}
</script>
<%End Sub
call connclose()%>
</BODY></HTML>